home *** CD-ROM | disk | FTP | other *** search
/ Hobby PC 11 / Hobby PC 11.iso / lotuspro / compnent / flters98 / emps_32.flt / TEXT / ADTYPE5RES < prev    next >
Text File  |  1999-06-03  |  8KB  |  593 lines
  1. %%BeginResource: procset Adobe_typography_AI5 1.0 1
  2. %%Title: (Typography Operators)
  3. %%Version: 1.0 1
  4. %%CreationDate:(6/10/1996) ()
  5. %%Copyright: ((C) 1987-1996 Adobe Systems Incorporated All Rights Reserved)
  6. currentpacking true setpacking
  7. userdict /Adobe_typography_AI5 68 dict dup begin
  8. put
  9. /initialize
  10. {
  11.  begin
  12.  begin
  13.   Adobe_typography_AI5 begin
  14.   Adobe_typography_AI5
  15.   {
  16.     dup xcheck
  17.     {
  18.       bind
  19.     } if
  20.     pop pop
  21.   } forall
  22.  end
  23.  end
  24.  end
  25.   Adobe_typography_AI5 begin
  26. } def
  27. /terminate
  28. {
  29.   currentdict Adobe_typography_AI5 eq
  30.   {
  31.    end
  32.   } if
  33. } def
  34. /modifyEncoding
  35. {
  36.   /_tempEncode exch ddef
  37.   /_pntr 0 ddef
  38.   {
  39.     counttomark -1 roll
  40.     dup type dup /marktype eq
  41.     {
  42.       pop pop exit
  43.     }
  44.     {
  45.       /nametype eq
  46.       {
  47.         _tempEncode /_pntr dup load dup 3 1 roll 1 add ddef 3 -1 roll
  48.         put
  49.       }
  50.       {
  51.         /_pntr exch ddef
  52.       } ifelse
  53.     } ifelse
  54.   } loop
  55.   _tempEncode
  56. } def
  57. /havefont
  58. {
  59.   systemdict /languagelevel known
  60.     {
  61.     /Font resourcestatus dup
  62.       { exch pop exch pop }
  63.     if
  64.     }
  65.     {
  66.     systemdict /FontDirectory get 1 index known
  67.       { pop true }
  68.       {
  69.       systemdict /fileposition known
  70.         {
  71.         dup length 6 add exch
  72.         Ss 6 250 getinterval
  73.         cvs pop
  74.         Ss exch 0 exch getinterval
  75.         status
  76.           { pop pop pop pop true }
  77.           { false }
  78.         ifelse
  79.         }
  80.         {
  81.         pop false
  82.         }
  83.       ifelse
  84.       }
  85.     ifelse
  86.     }
  87.   ifelse
  88. } def
  89. /TE
  90. {
  91.   StandardEncoding 256 array copy modifyEncoding
  92.   /_nativeEncoding exch def
  93. } def
  94. /subststring {
  95.   exch 2 index exch search
  96.   {
  97.     exch pop
  98.     exch dup () eq
  99.     {
  100.       pop exch concatstring
  101.     }
  102.     {
  103.       3 -1 roll
  104.       exch concatstring
  105.       concatstring
  106.     } ifelse
  107.     exch pop true
  108.   }
  109.   {
  110.     pop pop false
  111.   } ifelse
  112. } def
  113. /concatstring {
  114.   1 index length 1 index length
  115.   1 index add
  116.   string
  117.   dup 0 5 index putinterval
  118.   dup 2 index 4 index putinterval
  119.   4 1 roll pop pop pop
  120. } def
  121. %
  122. /TZ
  123. {
  124.   dup type /arraytype eq
  125.   {
  126.     /_wv exch def
  127.   }
  128.   {
  129.     /_wv 0 def
  130.   } ifelse
  131.   /_useNativeEncoding exch def
  132.   2 index havefont
  133.   {
  134.     3 index
  135.     255 string
  136.     cvs
  137.  
  138.     dup
  139.     (_Symbol_)
  140.     eq
  141.     {
  142.       pop
  143.       2 index
  144.       findfont
  145.  
  146.     }
  147.     {
  148.       dup length 1 sub
  149.       1 exch
  150.       getinterval
  151.  
  152.       cvn
  153.       findfont
  154.     } ifelse
  155.   }
  156.   {
  157.     dup 1 eq
  158.     {
  159.       2 index 64 string cvs
  160.       dup (-90pv-RKSJ-) (-83pv-RKSJ-) subststring
  161.       {
  162.         exch pop dup havefont
  163.         {
  164.           findfont false
  165.         }
  166.         {
  167.           pop true
  168.         } ifelse
  169.       }
  170.       {
  171.         pop dup
  172.         (-90ms-RKSJ-) (-Ext-RKSJ-) subststring
  173.         {
  174.           exch pop dup havefont
  175.           {
  176.             findfont false
  177.           }
  178.           {
  179.             pop true
  180.           } ifelse
  181.         }
  182.         {
  183.           pop pop true
  184.         } ifelse
  185.       } ifelse
  186.       {
  187.         /Ryumin-Light-83pv-RKSJ-H havefont
  188.           {/Ryumin-Light-83pv-RKSJ-H}
  189.           {/Courier}
  190.           ifelse
  191.           findfont
  192.           [1 0 0.5 1 0 0] makefont
  193.       } if
  194.     }
  195.     {
  196.       /Courier findfont
  197.     } ifelse
  198.   } ifelse
  199.   _wv type /arraytype eq
  200.   {
  201.     _wv makeblendedfont
  202.   } if
  203.   dup length 10 add dict
  204.  begin
  205.   mark exch
  206.   {
  207.     1 index /FID ne
  208.     {
  209.       def
  210.     } if
  211.     cleartomark mark
  212.   } forall
  213.   pop
  214.   /FontScript exch def
  215.   /FontDirection exch def
  216.   /FontRequest exch def
  217.   /FontName exch def
  218.   counttomark 0 eq
  219.   {
  220.     1 _useNativeEncoding eq
  221.     {
  222.       /Encoding _nativeEncoding def
  223.     } if
  224.     cleartomark
  225.   }
  226.   {
  227.     /Encoding load 256 array copy
  228.     modifyEncoding /Encoding exch def
  229.   } ifelse
  230.   FontName currentdict
  231.  end
  232.   definefont pop
  233. } def
  234. /tr
  235. {
  236.   _ax _ay 3 2 roll
  237. } def
  238. /trj
  239. {
  240.   _cx _cy _sp _ax _ay 6 5 roll
  241. } def
  242. /a0
  243. {
  244.   /Tx
  245.   {
  246.     dup
  247.     currentpoint 3 2 roll
  248.     tr _psf
  249.     newpath moveto
  250.     tr _ctm _pss
  251.   } ddef
  252.   /Tj
  253.   {
  254.     dup
  255.     currentpoint 3 2 roll
  256.     trj _pjsf
  257.     newpath moveto
  258.     trj _ctm _pjss
  259.   } ddef
  260. } def
  261. /a1
  262. {
  263. W B
  264. } def
  265. /e0
  266. {
  267.   /Tx
  268.   {
  269.     tr _psf
  270.   } ddef
  271.   /Tj
  272.   {
  273.     trj _pjsf
  274.   } ddef
  275. } def
  276. /e1
  277. {
  278. W F
  279. } def
  280. /i0
  281. {
  282.   /Tx
  283.   {
  284.     tr sp
  285.   } ddef
  286.   /Tj
  287.   {
  288.     trj jsp
  289.   } ddef
  290. } def
  291. /i1
  292. {
  293.   W N
  294. } def
  295. /o0
  296. {
  297.   /Tx
  298.   {
  299.     tr sw rmoveto
  300.   } ddef
  301.   /Tj
  302.   {
  303.     trj swj rmoveto
  304.   } ddef
  305. } def
  306. /r0
  307. {
  308.   /Tx
  309.   {
  310.     tr _ctm _pss
  311.   } ddef
  312.   /Tj
  313.   {
  314.     trj _ctm _pjss
  315.   } ddef
  316. } def
  317. /r1
  318. {
  319. W S
  320. } def
  321. /To
  322. {
  323.   pop _ctm currentmatrix pop
  324. } def
  325. /TO
  326. {
  327.   iTe _ctm setmatrix newpath
  328. } def
  329. /Tp
  330. {
  331.   pop _tm astore pop _ctm setmatrix
  332.   _tDict begin
  333.   /W
  334.   {
  335.   } def
  336.   /h
  337.   {
  338.   } def
  339. } def
  340. /TP
  341. {
  342.  end
  343.   iTm 0 0 moveto
  344. } def
  345. /Tr
  346. {
  347.   _render 3 le
  348.   {
  349.     currentpoint newpath moveto
  350.   } if
  351.   dup 8 eq
  352.   {
  353.     pop 0
  354.   }
  355.   {
  356.     dup 9 eq
  357.     {
  358.       pop 1
  359.     } if
  360.   } ifelse
  361.   dup /_render exch ddef
  362.   _renderStart exch get load exec
  363. } def
  364. /iTm
  365. {
  366.   _ctm setmatrix _tm concat
  367.   _shift aload pop _lineorientation 1 eq { exch } if translate
  368.   _scale aload pop _lineorientation 1 eq _yokoorientation 1 eq or { exch } if scale
  369. } def
  370. /Tm
  371. {
  372.   _tm astore pop iTm 0 0 moveto
  373. } def
  374. /Td
  375. {
  376.   _mtx translate _tm _tm concatmatrix pop iTm 0 0 moveto
  377. } def
  378. /iTe
  379. {
  380.   _render -1 eq
  381.   {
  382.   }
  383.   {
  384.     _renderEnd _render get dup null ne
  385.     {
  386.       load exec
  387.     }
  388.     {
  389.       pop
  390.     } ifelse
  391.   } ifelse
  392.   /_render -1 ddef
  393. } def
  394. /Ta
  395. {
  396.   pop
  397. } def
  398. /Tf
  399. {
  400.   1 index type /nametype eq
  401.   {
  402.     dup 0.75 mul 1 index 0.25 mul neg
  403.   } if
  404.   /_fontDescent exch ddef
  405.   /_fontAscent exch ddef
  406.   /_fontSize exch ddef
  407.   /_fontRotateAdjust _fontAscent _fontDescent add 2 div neg ddef
  408.   /_fontHeight _fontSize ddef
  409.   findfont _fontSize scalefont setfont
  410. } def
  411. /Tl
  412. {
  413.   pop neg 0 exch
  414.   _leading astore pop
  415. } def
  416. /Tt
  417. {
  418.   pop
  419. } def
  420. /TW
  421. {
  422.   3 npop
  423. } def
  424. /Tw
  425. {
  426.   /_cx exch ddef
  427. } def
  428. /TC
  429. {
  430.   3 npop
  431. } def
  432. /Tc
  433. {
  434.   /_ax exch ddef
  435. } def
  436. /Ts
  437. {
  438.   0 exch
  439.   _shift astore pop
  440.   currentpoint
  441.   iTm
  442.   moveto
  443. } def
  444. /Ti
  445. {
  446.   3 npop
  447. } def
  448. /Tz
  449. {
  450.   count 1 eq { 100 } if
  451.   100 div exch 100 div exch
  452.   _scale astore pop
  453.   iTm
  454. } def
  455. /TA
  456. {
  457.   pop
  458. } def
  459. /Tq
  460. {
  461.   pop
  462. } def
  463. /Tg
  464. {
  465.   pop
  466. } def
  467. /TG
  468. {
  469.   pop
  470. } def
  471. /Tv
  472. {
  473.   /_lineorientation exch ddef
  474. } def
  475. /TV
  476. {
  477.   /_charorientation exch ddef
  478. } def
  479. /Ty
  480. {
  481.   dup /_yokoorientation exch ddef 1 sub neg Tv
  482. } def
  483. /TY
  484. {
  485.   pop
  486. } def
  487. /T~
  488. {
  489.   Tx
  490. } def
  491. /Th
  492. {
  493.   pop pop pop pop pop
  494. } def
  495. /TX
  496. {
  497.   pop
  498. } def
  499. /Tk
  500. {
  501.   _fontSize mul 1000 div
  502.   _lineorientation 0 eq { neg 0 } { 0 exch } ifelse
  503.   rmoveto
  504.   pop
  505. } def
  506. /TK
  507. {
  508.   2 npop
  509. } def
  510. /T*
  511. {
  512.   _leading aload pop
  513.   _lineorientation 0 ne { exch } if
  514.   Td
  515. } def
  516. /T*-
  517. {
  518.   _leading aload pop
  519.   _lineorientation 0 ne { exch } if
  520.   exch neg exch neg
  521.   Td
  522. } def
  523. /T-
  524. {
  525.   _ax neg 0 rmoveto
  526.   _lineorientation 1 eq _charorientation 0 eq and { 1 TV _hyphen Tx 0 TV } { _hyphen Tx } ifelse
  527. } def
  528. /T+
  529. {
  530. } def
  531. /TR
  532. {
  533.   _ctm currentmatrix pop
  534.   _tm astore pop
  535.   iTm 0 0 moveto
  536. } def
  537. /TS
  538. {
  539.   currentfont 3 1 roll
  540.   /_Symbol_ findfont _fontSize scalefont setfont
  541.  
  542.   0 eq
  543.   {
  544.     Tx
  545.   }
  546.   {
  547.     Tj
  548.   } ifelse
  549.   setfont
  550. } def
  551. /Xb
  552. {
  553.   pop pop
  554. } def
  555. /Tb /Xb load def
  556. /Xe
  557. {
  558.   pop pop pop pop
  559. } def
  560. /Te /Xe load def
  561. /XB
  562. {
  563. } def
  564. /TB /XB load def
  565. currentdict readonly pop
  566. end
  567. setpacking
  568. %
  569. /X^
  570. {
  571.   currentfont 5 1 roll
  572.   dup havefont
  573.     {
  574.     findfont _fontSize scalefont setfont
  575.     }
  576.     {
  577.     pop
  578.     exch
  579.     } ifelse
  580.   2 index 0 eq
  581.   {
  582.     Tx
  583.   }
  584.   {
  585.     Tj
  586.   } ifelse
  587.   pop pop
  588.   setfont
  589. } def
  590. /T^ /X^ load def
  591. %%EndResource
  592. ■
  593.